home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / moreuselssprgs.lha / TunnelTest.AMOS / TunnelTest.amosSourceCode
AMOS Source Code  |  1997-04-18  |  775b  |  36 lines
  1. Hide 
  2. Screen Open 0,320,256,2,0
  3. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  4. Double Buffer : Autoback 0
  5. Dim CO(2)
  6. CO(0)=$88F : CO(1)=$448 : CO(2)=$224
  7. For A=0 To 2
  8.   For C=0 To 7
  9.     AA=A : CO=0
  10.     For AAA=0 To 2
  11.       Add AA,1,0 To 2
  12.       If( Extension_8_04F8(AA) and C)>0 Then CO=CO(2-AAA)
  13.     Next 
  14.      Extension_8_14C6 A,C,CO
  15.   Next 
  16. Next 
  17. R=0 : S=0
  18. BP=0 : BPC=0
  19. Do 
  20.   Screen Swap 
  21.   Wait Vbl 
  22.    Extension_8_121C 0,0
  23. '  Blitter Clear 0,1 
  24.   P=0
  25.   For R=0 To 63 Step 5
  26.     P=1-P
  27.     RR=((R+S-P*4) and 63)+P*4
  28.     D=2000/((272-RR*4)+11)
  29.     X=160+ Extension_8_1106(S*8-RR*4,32+ Extension_8_1114(S*2,32))
  30.     Y=128+ Extension_8_1114(S*8-RR*4,32+ Extension_8_1106(S*2,32))
  31.      Extension_8_1258 
  32.      Extension_8_1372 X,Y,D,0
  33.   Next 
  34.   Inc S
  35.    Extension_8_1042 0,0
  36. Loop